home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / webmon_1 / modmon.bas < prev    next >
BASIC Source File  |  1999-08-08  |  2KB  |  64 lines
  1. Attribute VB_Name = "Module1"
  2. Global intNoOfServers As Integer
  3. Global blnRebooting(8) As Boolean
  4. Option Explicit
  5. Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
  6.        ByVal dwReserved As Long) As Boolean
  7.        Public Const EWX_FORCE = 4
  8.        Public Const EWX_LOGOFF = 0
  9.        Public Const EWX_REBOOT = 2
  10.        Public Const EWX_SHUTDOWN = 1
  11.  
  12. Public Function SSetting(key As String, ByVal data As String)
  13.     SaveSetting "FastTrack", "Mon", key, data
  14. End Function
  15. Public Function LSetting(key As String) As String
  16.     LSetting = GetSetting("FastTrack", "Mon", key)
  17. End Function
  18. Sub RebootPC(ByVal vstrComputerName As String, _
  19.     ByVal vblnReboot As Boolean, Optional die As Boolean)
  20. '*********************************************************
  21. 'purpose:reboot PC
  22. 'inputs:vstrComputerName-computer to reboot
  23. '       vblnReboot--whether or not to
  24. '       reboot, TRUE to reboot, FALSE to cancel
  25. 'explanation:requires shutdown.exe (from NT resource kit)
  26. '            only tested on NT
  27. '*********************************************************
  28. Dim strCommandLine As String
  29. On Error GoTo reboot_error
  30.  
  31.     'determine if rebooting or cacelling
  32.     If (vblnReboot <> False) Then
  33.         'reboot
  34.         strCommandLine = App.Path & "\shutdown.exe \\" & _
  35.             vstrComputerName
  36.         If die <> True Then strCommandLine = strCommandLine & " /R"
  37.         strCommandLine = strCommandLine & " /T:10 " & _
  38.             Chr(34) & "This server shutdown was bought to you curtosy of WebMon" & _
  39.              Chr(34) & " /C /Y"
  40.         Shell strCommandLine, vbNormalFocus
  41.     Else
  42.         'cancel reboot
  43.         strCommandLine = App.Path & "\shutdown.exe \\" & _
  44.             vstrComputerName & " /A /Y"
  45.         Shell strCommandLine, vbNormalFocus
  46.     End If
  47. Exit Sub
  48. reboot_error:
  49.     MsgBox ("Error sending reboot to server")
  50. End Sub
  51.  
  52.  
  53. Public Function LogIt(data As String)
  54.     Dim strLogPath As String
  55.     Dim intLogFile As Integer
  56.     strLogPath = App.Path & "\" & Format(Now, "dd mmm yyyy") & ".txt"
  57.     intLogFile = FreeFile
  58.     Open strLogPath For Append As #intLogFile
  59.         Print #intLogFile, "[" & Now & "]" & data
  60.     Close #intLogFile
  61.     
  62. End Function
  63.  
  64.